COMMENT ⊗   VALID 00003 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	TITLE BLACK
C00004 00003	PLACE =100 ROW CONTROL WORDS.
C00005 ENDMK
C⊗;
TITLE BLACK
; XGP TEST B.G.BAUMGART 8/2/73 --------------------------------------

SA:	MOVE 44↔CORE↔HALT	;SHRINK.
	MOVEI =10000
	ADD 44↔CORE↔HALT	;EXPAND.

;MAKE IT BLACK.

	SETOM BUFFER↔SETZM BUFFER+1↔MOVEI BUFFER↔TRNN 1↔JRST .+3
	SETZM BUFFER↔SETOM BUFFER+1
	MOVE[XWD BUFFER,BUFFER+2]↔BLT BUFFER+=48*=36
	MOVE[XWD BUFFER,BUFFER+=48*=36+1]↔BLT BUFFER+2*=48*=36
	MOVE[XWD BUFFER,BUFFER+2*=48*=36+1]↔BLT BUFFER+=9600

	MOVE 0,[POINT 1,BUFFER,17]↔MOVE 1,[POINT 1,BUFFER,18]
	MOVE 2,[POINT 1,BUFFER,19]↔MOVE 3,[POINT 1,BUFFER,20]
	MOVE 4,[POINT 1,BUFFER,21]↔MOVE 5,[POINT 1,BUFFER,22]
	MOVE 6,[POINT 1,BUFFER,23]↔MOVE 7,[POINT 1,BUFFER,24]

	SETO↔MOVEI 8,=200
L10:	MOVEI 9,8
	IDPB 0,0↔IDPB 1,1↔IDPB 2,2↔IDPB 3,3
	IDPB 4,4↔IDPB 5,5↔IDPB 6,6↔IDPB 7,7↔JRST L12
L11:	DPB 0,0↔DPB 1,1↔DPB 2,2↔DPB 3,3
	DPB 4,4↔DPB 5,5↔DPB 6,6↔DPB 7,7
L12:	ADDI 0,6↔ADDI 1,6↔ADDI 2,6↔ADDI 3,6
	ADDI 4,6↔ADDI 5,6↔ADDI 6,6↔ADDI 7,6
	SOJGE 9,L11↔SOJGE 8,L10

;PLACE =100 ROW CONTROL WORDS.

	MOVE[1B11+=47]↔MOVEI 1,BUFFER↔HRREI 2,-=200
L0:	MOVEM(1)↔ADDI 1,=48↔AOJLE 2,L0
	OUTSTR[ASCIZ/

	HIT A SPACE TO STOP THE XGP.

/]
;SEND BUFFER TO XGP.
L1:	INIT 1,117↔SIXBIT/XGP/↔0
	JRST[OUTSTR[ASCIZ/CAN'T INIT XGP./]↔HALT]
	LOCK↔OUT 1,DUMP↔OUT 1,DUMP
L2:	OUT 1,DUMP↔INCHRS↔SKIPA↔JRST L3
	OUTSTR[ASCIZ/	BUFFER TO XGP.
/]↔	JRST L2

;END OF TEST.
L3:	OUT 1,CUT↔UNLOCK↔RELEASE 1,
	OUTSTR[ASCIZ/

		END OF XGP OUTPUT.

/]↔	EXIT
CUT:	IOWD =64,CUTBUF↔0
CUTBUF:	1B0+0↔BLOCK =100
DUMP:	IOWD =9600,BUFFER ↔ 0
LIT

BUFFER:

END SA